﻿Imports ServiciosAT
Imports Utilitarios

Namespace SIREOS
    Public Class AtencionWSR

        Function anularAgenda(oAtencionBE As SireosWSAtencion.OrdenServicioAtencion) As Boolean
            Dim oAtencionWS As New SireosWSAtencion.WSAtencion

            Dim _anularAgendaRequest As New SireosWSAtencion.anularAgendaRequest
            Dim _anularAgendaResponse As New SireosWSAtencion.anularAgendaResponse

            _anularAgendaRequest.ordenServicioAtencion = oAtencionBE
            _anularAgendaRequest.ordenServicioAtencion.codigoAtencionSpecified = True

            _anularAgendaResponse = oAtencionWS.anularAgenda(_anularAgendaRequest)

            If Not (_anularAgendaResponse.mensajeInformativo.descripcionMensaje Is Nothing) Then
                Return True
            Else
                Return False
            End If
        End Function

        Function asignarOrdenConAgenda(oAtencionBE As SireosWSAtencion.OrdenServicioAtencion) As Boolean
            Dim oAtencionWS As New SireosWSAtencion.WSAtencion

            Dim _asignarOrdenConAgendaRequest As New SireosWSAtencion.asignarOrdenConAgendaRequest
            Dim _asignarOrdenConAgendaResponse As New SireosWSAtencion.asignarOrdenConAgendaResponse

            _asignarOrdenConAgendaRequest.ordenServicioAtencion = oAtencionBE
            _asignarOrdenConAgendaRequest.ordenServicioAtencion.codigoAtencionSpecified = True

            _asignarOrdenConAgendaResponse = oAtencionWS.asignarOrdenConAgenda(_asignarOrdenConAgendaRequest)

            If Not (_asignarOrdenConAgendaResponse.mensajeInformativo.descripcionMensaje Is Nothing) Then
                Return True
            Else
                Return False
            End If
        End Function

        Function asignarOrdenSinAgenda(oAtencionBE As SireosWSAtencion.OrdenServicioAtencion) As Boolean
            Dim oAtencionWS As New SireosWSAtencion.WSAtencion

            Dim _asignarOrdenSinAgendaRequest As New SireosWSAtencion.asignarOrdenSinAgendaRequest
            Dim _asignarOrdenSinAgendaResponse As New SireosWSAtencion.asignarOrdenSinAgendaResponse

            _asignarOrdenSinAgendaRequest.ordenServicioAtencion = oAtencionBE
            _asignarOrdenSinAgendaRequest.ordenServicioAtencion.codigoAtencionSpecified = True

            _asignarOrdenSinAgendaResponse = oAtencionWS.asignarOrdenSinAgenda(_asignarOrdenSinAgendaRequest)

            If Not (_asignarOrdenSinAgendaResponse.mensajeInformativo.descripcionMensaje Is Nothing) Then
                Return True
            Else
                Return False
            End If
        End Function

        Function registrarAgenda(oAtencionBE As SireosWSAtencion.OrdenServicioAtencion) As Integer
            Dim oAtencionWS As New SireosWSAtencion.WSAtencion

            Dim _registrarAgendaRequest As New SireosWSAtencion.registrarAgendaRequest
            Dim _registrarAgendaResponse As New SireosWSAtencion.registrarAgendaResponse

            _registrarAgendaRequest.ordenServicioAtencion = oAtencionBE
            _registrarAgendaRequest.ordenServicioAtencion.codigoAtencionSpecified = True

            _registrarAgendaResponse = oAtencionWS.registrarAgenda(_registrarAgendaRequest)

            If Not (_registrarAgendaResponse.ordenServicioAtencion Is Nothing) Then
                Return _registrarAgendaResponse.ordenServicioAtencion.codigoAtencion
            Else
                Return 0
            End If
        End Function

        Function registrarAtencion(oAtencionBE As SireosWSAtencion.OrdenServicioAtencion) As Boolean
            Dim oAtencionWS As New SireosWSAtencion.WSAtencion

            Dim _registrarAtencionRequest As New SireosWSAtencion.registrarAtencionRequest
            Dim _registrarAtencionResponse As New SireosWSAtencion.registrarAtencionResponse

            _registrarAtencionRequest.ordenServicioAtencion = oAtencionBE
            _registrarAtencionRequest.ordenServicioAtencion.codigoAtencionSpecified = True

            _registrarAtencionResponse = oAtencionWS.registrarAtencion(_registrarAtencionRequest)

            If Not (_registrarAtencionResponse.mensajeInformativo.descripcionMensaje Is Nothing) Then
                Return True
            Else
                Return False
            End If
        End Function

        Function registrarInforme(oInformeBE As SireosWSAtencion.Informe) As Boolean
            Dim oAtencionWS As New SireosWSAtencion.WSAtencion

            Dim _registrarInformeRequest As New SireosWSAtencion.registrarInformeRequest
            Dim _registrarInformeResponse As New SireosWSAtencion.registrarInformeResponse

            _registrarInformeRequest.informe = oInformeBE
            _registrarInformeRequest.informe.codInformeSpecified = True

            _registrarInformeResponse = oAtencionWS.registrarInforme(_registrarInformeRequest)

            If Not (_registrarInformeResponse.mensajeInformativo.descripcionMensaje Is Nothing) Then
                Return True
            Else
                Return False
            End If
        End Function

    End Class
End Namespace